home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2002-04-06 | 1.6 KB | 64 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="5"
- "COUNT"="1"
- "UIPATH"="Program Options\Other Programs\GetRight\"
- "NAME"="Recent files"
- "VERSION"="1.00"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Clear recent files list"
- "DESCRIPTION 1"="If you don't want people to see the files you have recently downloaded, click on the button."
- "DESCRIPTION 2"="GetRight is a program which is able to continue an interrupted file download on Internet ..."
- "DESCRIPTION 3"="GetRight is available at http://www.getright.com/"
- "AUTHOR"="FORMATMAN"
- "CONTACTURL"="http://formatland.free.fr/"
- "COPYRIGHT"="Copyright ⌐ Formatman"
- "COMMENT 1"="For more informations, go to http://www.xsetup.net"
- "COMMENT 2"="Created by VORMELKER Werner"
- "COMMENT 3"="http://formatland.free.fr/"
- "COMMENT 4"="formatman@wanadoo.fr"
-
- sP="HKCU\Software\HeadLight\GetRight\MRU\"
-
-
- Sub Plugin_Initialize
- If RegPathExists(sP)=false then
- Disable()
- end if
- End Sub
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- if ElementIndex=1 then
- for l=0 to 30
- s="file" & l
- v=RegReadValue(sP & s)
-
- If IsEmpty(v)=false then
- Call RegDeleteValue(sP & S)
- end if
- Next
-
- Call MsgInformation("Recently downloaded files list cleared !")
- end if
-
-
- if ElementIndex=2 then
- 'i=RegEnumValues(sp2a)
- 'for l=1 to i
- ' Call RegDeleteValue(sp2a & RegEnumElement(l))
- 'Next
- 'Call RegWriteValue(sp2b,0,2)
-
-
- 'Call MsgInformation("EffacΘ!")
- end if
-
-
-
- End Sub
-
- Sub Plugin_Terminate
- End Sub
-